object WorldPayProgressForm: TWorldPayProgressForm Left = 285 Top = 278 BorderIcons = [] BorderStyle = bsDialog Caption = 'Registering' ClientHeight = 84 ClientWidth = 509 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] OldCreateOrder = False Position = poMainFormCenter OnCreate = FormCreate OnShow = FormShow PixelsPerInch = 96 TextHeight = 13 object WaitLabel: TLabel Left = 8 Top = 8 Width = 409 Height = 65 AutoSize = False Caption = 'WaitLabel' WordWrap = True end object DescriptionLabel: TLabel Left = 104 Top = 52 Width = 79 Height = 13 Caption = 'DescriptionLabel' end object ProgressBar: TLMDProgressFill Left = 16 Top = 48 Width = 80 Height = 20 Bevel.StyleOuter = bvLowered Bevel.Mode = bmCustom Bevel.StandardStyle = lsSingleLowered Color = clBtnFace FillObject.Style = sfBrush FillObject.Brush.Color = clHighlight FillObject.Options = [foFillInner] ParentColor = False end object CancelButton: TButton Left = 424 Top = 48 Width = 75 Height = 25 Cancel = True Caption = 'Cancel' Enabled = False TabOrder = 1 OnClick = CancelButtonClick end object OKButton: TButton Left = 336 Top = 48 Width = 75 Height = 25 Caption = 'OK' Default = True Enabled = False TabOrder = 0 OnClick = OKButtonClick end object AdvHttp: TAdvHttp ConnectTimeout = 30000 UserAgent = 'TeamSoft WinInet Component' URL = 'http://localhost/' URLPath = '/' HostName = 'localhost' Method = 'GET' AuthRetries = 3 InternetFlags = [ifIgnoreCertCnInvalid, ifIgnoreCertDateInvalid, ifIgnoreRedirectToHttp, ifIgnoreRedirectToHttps, ifKeepConnection, ifNoUi, ifReload] OnConnectedToServer = AdvHttpConnectedToServer OnConnectingToServer = AdvHttpConnectingToServer OnResponseReceived = AdvHttpResponseReceived OnRequestComplete = AdvHttpRequestComplete OnError = AdvHttpError Left = 472 Top = 8 end object Timer: TTimer Enabled = False Interval = 20 OnTimer = TimerTimer Left = 440 Top = 8 end end